home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / Lib.cst / 00031_ActivityLib.ls < prev    next >
Encoding:
Text File  |  2004-07-11  |  322 b   |  24 lines
  1. --
  2. -- ActivityLib
  3. --
  4.  
  5. property ancestor
  6.  
  7.  
  8. on new me
  9.   -- set constants:
  10.   
  11.   
  12.   -- initialize the ancestor:
  13.   set ancestor = new (script "DragSprite")
  14.   
  15.   -- do other initializations:
  16.   initHandCursor ("pointer", [])
  17.   return me
  18. end
  19.  
  20.  
  21. on destruct me
  22.   if objectP (ancestor) then destruct (ancestor)
  23.   set ancestor = 0
  24. end